home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 35 / 035.d81 / anagram helper (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  117 lines
  1. 5 gosub60100:clr:poke53281,.
  2. 10 clr:dimwd$(8):goto30
  3. 20 poke198,0:print"press any key to continue"
  4. 25 geta$:ifa$=""then25
  5. 28 return
  6. 30 printchr$(142)"[147][154]             anagram helper"
  7. 32 print"          by e. stuart johnson"
  8. 34 print"[154]enter q[154] to quit."
  9. 35 print"enter scrambled word:[159]";:gosub60500:w$=a$
  10. 40 a=len(w$):ta=10-a
  11. 50 ifa$="q"thengosub60000:goto35
  12. 60 if a<3then print"enter at least 3 letters, please.":gosub20:goto30
  13. 61 print"[154]send output to screen or printer? (s[154]/p[154])"
  14. 62 geta$:ifa$<>"s"anda$<>"[211]"anda$<>"p"anda$<>"[208]"then62
  15. 63 ifa$="s"ora$="[211]"thenopen2,3:goto66
  16. 64 open2,4:gosub63000:ifnot(ok)then10
  17. 65 print#2,spc(33)"anagram helper":print#2,spc(30)"by e. stuart johnson":print#2
  18. 66 print"[154]      press p[154] to pause, q[154] to quit."
  19. 67 print"[151][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][148][192][154]"
  20. 68 forz=1to5:print"                                       ":next:print"[145][145][145][145][145]";
  21. 70 forx=1to a:wd$(x)=mid$(w$,x,1):next
  22. 80 ct=.
  23. 90 forb=1toa
  24. 92 getz$:ifz$="p"orz$="[208]"thengosub61000
  25. 94 ifz$="q"orz$="[209]"then375
  26. 100 forc=1toa
  27. 110 if b-c=0then360
  28. 120 ford=1toa
  29. 130 if(b-d)*(c-d)=0then350
  30. 135 if a=3then print#2,wd$(b)wd$(c)wd$(d)spc(ta);
  31. 140 fore=1toa
  32. 150 if(b-e)*(c-e)*(d-e)=0then340
  33. 160 if a=4then print#2,wd$(b)wd$(c)wd$(d)wd$(e)spc(ta);
  34. 170 if a=4then 340
  35. 180 forf=1toa
  36. 190 if(b-f)*(c-f)*(d-f)*(e-f)=0then330
  37. 200 if a=5then print#2,wd$(b)wd$(c)wd$(d)wd$(e)wd$(f)spc(ta);
  38. 210 getz$:ifz$="p"orz$="[208]"thengosub61000
  39. 215 ifz$="q"orz$="[209]"then375
  40. 220 if a=5then 330
  41. 230 forg=1toa
  42. 240 if(b-g)*(c-g)*(d-g)*(e-g)*(f-g)=0then320
  43. 250 if a=6then print#2,wd$(b)wd$(c)wd$(d)wd$(e)wd$(f)wd$(g)spc(ta);
  44. 255 getz$:ifz$="p"orz$="[208]"thengosub61000
  45. 256 ifz$="q"orz$="[209]"then375
  46. 260 if a=6then 320
  47. 270 forh=1toa
  48. 280 if(b-h)*(c-h)*(d-h)*(e-h)*(f-h)*(g-h)=0then310
  49. 290 ifa=7thenprint#2,wd$(b)wd$(c)wd$(d)wd$(e)wd$(f)wd$(g)wd$(h)spc(ta);:ct=ct+1
  50. 292 fori=1toa
  51. 293 if(b-i)*(c-i)*(d-i)*(e-i)*(f-i)*(g-i)*(h-i)=0then298
  52. 295 print#2,wd$(b)wd$(c)wd$(d)wd$(e)wd$(f)wd$(g)wd$(h)wd$(i)spc(ta);
  53. 298 next
  54. 300 getz$:ifz$="p"orz$="[208]"thengosub61000
  55. 305 ifz$="q"orz$="[209]"then375
  56. 310 nexth
  57. 320 nextg
  58. 330 nextf
  59. 340 nexte
  60. 350 nextd
  61. 360 nextc
  62. 370 nextb
  63. 375 print:print#2:close2
  64. 380 print" finished ... [145]";:gosub20:goto10
  65. 60000 print"  [154]are you sure you want to quit? (y[154]/n[154])"
  66. 60010 geta$:ifa$<>"n"anda$<>"[206]"anda$<>"y"anda$<>"[217]"then60010
  67. 60020 ifa$="y"ora$="[217]"then60040
  68. 60030 print"[145]                                      [145][145][145]":return
  69. 60040 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  70. 60050 ifer<>63thenend
  71. 60060 poke1,119:load"hello connect",8
  72. 60100 poke53280,11:poke53281,1
  73. 60110 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  74. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  75. 60130 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  76. 60135 fora=217to242:pokea,peek(a)or128:next
  77. 60140 print"[149]          [204][207][193][196][211][212][193][210] [208]resents:"
  78. 60142 print"[159]";
  79. 60145 print"                              [146]"
  80. 60150 print"            [193]nagram [200]elper    [155] [146]"
  81. 60155 print"                              [155] [146]"
  82. 60160 print"         by [197]. [211]tuart [202]ohnson [155] [146]"
  83. 60165 print"                              [155] [146]"
  84. 60170 print"           ([195])opyright 1987   [155] [146]"
  85. 60175 print"                              [155] [146]"
  86. 60176 print"         [155]                      [146]"
  87. 60180 print"[149]        [208]ress [211][208][193][195][197] to continue.":poke198,.
  88. 60190 geta$:ifa$<>" "then60190
  89. 60200 poke770,131:poke771,164
  90. 60210 poke88,.:poke89,192
  91. 60220 poke90,.:poke91,192
  92. 60230 poke781,33:poke782,.
  93. 60240 sys41964
  94. 60250 poke88,254:poke89,255
  95. 60260 poke90,254:poke91,255
  96. 60270 poke781,33:poke782,.
  97. 60280 sys41964
  98. 60290 poke59639,4:poke1,53
  99. 60295 return
  100. 60500 print"[164]";:fora=1to9:g$(a)=""
  101. 60510 geta$:ifa$=""then60510
  102. 60515 ifa$=chr$(34)then60510
  103. 60518 if(a$>="[193]")and(a$<="[218]")thena$=chr$(asc(a$)-128)
  104. 60520 ifa$=chr$(13)then60590
  105. 60530 if(a$=chr$(20))and(a>1)thena=a-1:print"[157][157]  [157][157][164]";:g$(a)="":goto60510
  106. 60540 if(a=9)then60510
  107. 60550 if(a$>" ")and(a$<="z")then60570
  108. 60560 goto60510
  109. 60570 print"[157]"a$;:poke212,.:print"[164]";:g$(a)=a$
  110. 60580 next
  111. 60590 print"[157] ":a$=""
  112. 60595 forb=1toa-1:a$=a$+g$(b):next:return
  113. 61000 poke198,.:wait 198,1:getz$:return
  114. 63000 open15,4,15:close15:if(st=.)thenok=-1:return
  115. 63010 print"           printer not online"
  116. 63020 fora=1to2000:next:ok=.:return
  117.